﻿Imports System.Data  

Public Class CRegistroBitacora


Private _id       As Integer 
Private _fechaIni As date
Private _fechaFin As date
Private _usuario  As String
Private _modulo   As String
Private _funcion  As String
Private _descripcion As String



Public Sub new()

End Sub


Public Sub new( ByRef registro As DataRow) 
 _fechaIni =  registro ("FECHA_INI") 
 _fechaFin =  IIf ( IsDBNull (registro("FECHA_FIN")), nothing ,registro ("FECHA_FIN"))  
 _usuario  =  IIf ( IsDBNull (registro ("USUARIO")),"",registro ("USUARIO"))
 _modulo  = registro ("MODULO")
 _funcion  = registro ("FUNCION")
 _descripcion =IIf ( IsDBNull (registro ("DESCRIPCION")),"",registro ("DESCRIPCION")) 

End Sub



Public Property Id() As Integer 
    Get
        Return _id  
    End Get
    Set(ByVal value As Integer )
        _id   = value
    End Set
End Property





Public Property FechaIni() As Date 
    Get
        Return _fechaIni 
    End Get
    Set(ByVal value As Date)
        _fechaIni = value
    End Set
End Property



Public Property FechaFin() As date
    Get
        Return _fechaFin  
    End Get
    Set(ByVal value As Date)
         _fechaFin   = value
    End Set
End Property


Public Property Usuario() As String
    Get
        Return _usuario 
    End Get
    Set(ByVal value As String)
        _usuario   = value
    End Set
End Property



Public Property Modulo() As String
    Get
        Return _modulo
    End Get
    Set(ByVal value As String)
        _modulo    = value
    End Set
End Property


Public Property Funcion() As String
    Get
        Return _funcion 
    End Get
    Set(ByVal value As String)
        _funcion  = value
    End Set
End Property



Public Property Descripcion() As String
    Get
        Return _descripcion 
    End Get
    Set(ByVal value As String)
        _descripcion  = value
    End Set
End Property




End Class
